home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / PROCED1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  454 b   |  24 lines
  1. PROGRAM first_procedure_call;
  2.  
  3. VAR  count  : INTEGER;
  4.  
  5. PROCEDURE write_a_header;
  6. BEGIN
  7.   WRITELN('This is the header');
  8. END;
  9.  
  10. PROCEDURE write_a_message;
  11. BEGIN
  12.   WRITELN('This is the message and the count is',count:4);
  13. END;
  14.  
  15. PROCEDURE write_an_ending;
  16. BEGIN
  17.   WRITELN('This is the ending message');
  18. END;
  19.  
  20. BEGIN  (* main program *)
  21. write_a_header;
  22. FOR count := 1 TO 8 DO write_a_message;
  23. write_an_ending;
  24. END.  (* of main program *)